home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 77
/
077.d81
/
hb halloween
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
9KB
|
292 lines
10 rem **** hb halloween ****
20 rem....with viewer controlled pauses.
40 poke53280,0:poke53281,0
50 v=53248:printchr$(8)
55 fori=0to10:poke709+i,0:next
200 :
205 gosub8104:rem...sprite data
300 :
305 gosub8204:rem...text screen m/l
310 print"[147]"
350 :
355 rem **** activate main title ****
360 sys51718,1,"main title"
365 sys51721,1,1
370 rem **** activate sprite ****
380 poke2040,250:poke2041,251:poke2042,252:poke2043,253
382 pokev+39,9:pokev+40,9:pokev+41,9:pokev+42,9
384 pokev+28,15:pokev+37,8:pokev+38,8
386 pokev+16,15:pokev,10:pokev+2,34:pokev+4,14:pokev+6,38
388 pokev+1,60:pokev+3,60:pokev+5,81:pokev+7,81
390 pokev+21,15
392 poke55408,15:poke55409,15:poke1136,160:poke1137,160
595 fort=1to5000:next
600 :
605 poke55408,0:poke55409,0:pokev+21,0:pokev+16,0
610 rem gosub10050:rem wipe main title
615 b$="[147][159]":a$="another story in the":gosub10010
620 b$="[150]":a$="adventures of huggy bear":gosub10010
625 b$="[153]":a$="copyright may 1990":gosub10010
630 b$="":a$="by wm. o. nelson":gosub 10010
635 b$="[159]":a$="original huggy bear stories (c) 1984":gosub10010
640 fort=1to5000:next:gosub10050
642 print"[147][159]after you have read a text
644 [153]"page or dialog box, press any key to
646 print"make the story continue. if the screen
648 [153]"doesn't change right away the computer
649 print"is busy loading data. if you don't"
650 print"press a key, the program will continue"
652 print"after a few seconds.":poke198,0:z9=0
653 z9=z9+1:geta$:ifa$=""andz9<300then653
655 gosub10050
660 print"[147][153] this story takes place on hallo-"
665 print"ween, which as you know, is the night"
670 print"before all saints day and the night of"
675 print"all souls day. it is said by many that"
680 print"all the ghosts and spirits come out on"
685 print"this night. but then, we don't believe"
690 print"in such things, do we ??????"
695 print" huggy bear and his adopted sister"
700 print"and brother are preparing to go trick"
705 print"or treating in the neighborhood. you"
710 print"can go with them if you want to. just"
715 print"type in your name on the next page..."
725 gosub8352:gosub8404:gosub8502:poke198,0:z9=0
730 z9=z9+1:geta$:ifa$=""andz9<200then730
735 gosub10050
740 rem
745 print"[147][159]if you don't want to go with huggy bear just push return key.
750 [153]"if you do want to go type your first name (10 letters or less):
752 print"";:gosub50000:nm$=q9$
754 ifnm$=""thenpoke709,0:print"[147]":goto805
780 poke709,len(nm$)
790 fori=1tolen(nm$):poke709+i,asc(mid$(nm$,i,1)):next
800 print"[147]":poke214,14:print"[158]glad to have you along, "nm$"."
805 poke214,16:print"[158]let's go inside huggy bear's house and"
810 print"see what's going on."
850 print"[144]"
855 print"new"
860 print"load"chr$(34)"0:hbh2"chr$(34)",8"
865 print"run"
870 print"":poke631,13:poke632,13:poke633,13:poke198,3
890 end
7998 :
8000 rem-----sprite & m/l data----
8102 rem....4 hb sprites (main title)
8104 fori=16000to16255:reada:pokei,a:next:return
8110 data000,160,042,002,248,175,011,254
8112 data191,011,175,191,011,174,255,011
8114 data238,255,011,255,255,002,251,255
8116 data000,187,255,000,171,227,000,171
8118 data227,000,171,254,000,171,254,000
8120 data043,255,000,043,255,000,042,255
8122 data000,010,255,000,010,191,000,010
8124 data188,000,043,175,000,175,250,000
8126 data160,000,000,248,000,000,254,010
8128 data000,255,175,128,254,239,224,255
8130 data170,224,254,234,224,255,171,224
8132 data254,175,128,242,234,000,243,168
8134 data000,250,232,000,250,160,000,254
8136 data224,000,014,160,000,254,128,000
8138 data170,128,000,170,000,000,162,000
8140 data000,010,000,000,170,000,000,000
8142 data002,250,255,010,250,255,010,250
8144 data238,043,235,255,043,235,251,043
8146 data235,255,043,239,190,043,235,255
8148 data043,239,239,043,235,255,043,239
8150 data251,043,235,255,010,251,191,010
8152 data251,251,010,251,255,002,250,239
8154 data002,170,254,000,170,191,000,162
8156 data238,000,000,000,000,000,000,255
8158 data250,000,000,254,128,000,239,128
8160 data000,171,128,000,235,224,000,186
8162 data224,000,234,224,000,186,248,000
8164 data234,248,000,186,248,000,234,248
8166 data000,186,248,000,234,248,000,186
8168 data248,000,234,224,000,187,224,000
8170 data235,224,000,163,128,000,226,128
8172 data000,000,000,000,000,000,000,255
8200 :
8202 rem **** text screen loader ****
8204 fori=51712to52058:readj:pokei,j:next:return
8206 data76,168,202,76,182,202,76,243
8208 data202,32,253,174,32,235,183,165
8210 data20,133,2,224,0,240,38,224
8212 data6,176,34,202,188,80,203,189
8214 data75,203,170,165,2,208,23,134
8216 data253,132,254,169,0,133,251,169
8218 data216,133,252,32,90,202,169,4
8220 data133,252,32,90,202,96,32,35
8222 data203,134,251,132,252,169,216,133
8224 data254,169,0,133,253,32,90,202
8226 data169,4,133,254,32,90,202,76
8228 data48,203,160,0,162,3,177,251
8230 data145,253,200,208,249,230,252,230
8232 data254,202,208,242,177,251,145,253
8234 data200,192,232,208,247,230,252,230
8236 data254,96,147,13,13,67,79,80
8238 data89,82,73,71,72,84,32,49
8240 data57,56,52,13,76,79,85,73
8242 data83,32,87,65,76,76,65,67
8244 data69,32,38,13,75,69,78,32
8246 data70,82,69,78,67,72,13,0
8248 data162,0,189,122,202,240,6,32
8250 data210,255,232,208,245,96,32,253
8252 data174,32,158,183,224,0,240,48
8254 data224,6,176,44,202,188,80,203
8256 data132,252,188,75,203,132,251,188
8258 data85,203,132,254,169,232,133,253
8260 data32,61,203,32,189,255,32,35
8262 data203,169,8,170,32,186,255,169
8264 data251,166,253,164,254,32,216,255
8266 data76,48,203,32,253,174,32,158
8268 data183,224,0,240,37,224,6,176
8270 data33,142,90,203,169,8,170,160
8272 data0,32,186,255,32,61,203,32
8274 data189,255,174,90,203,202,188,80
8276 data203,189,75,203,170,169,0,32
8278 data213,255,96,165,0,9,1,133
8280 data0,165,1,41,254,133,1,96
8282 data165,0,9,1,133,0,165,1
8284 data9,1,133,1,96,32,253,174
8286 data32,158,173,32,130,183,166,34
8288 data164,35,96,0,0,0,0,0
8290 data160,168,176,184,192,167,175,183
8292 data191,199,0
8350 :
8352 rem **** woman sprite ****
8354 fori=0to127:reada:poke15872+i,a:next:return:rem poke p,248/249
8356 data0,60,0,3,255,0,3,255
8358 data192,0,87,192,0,215,192,0
8360 data87,240,1,85,0,0,84,0
8362 data0,84,0,0,16,0,0,168
8364 data0,2,170,0,2,170,0,10
8366 data170,0,10,170,0,10,170,0
8368 data1,170,0,1,170,0,1,168
8370 data0,1,168,0,1,168,0,0
8372 data1,168,0,1,170,0,2,170
8374 data0,2,170,0,2,170,0,2
8376 data170,0,2,170,0,2,170,0
8378 data2,170,0,10,170,0,10,170
8380 data128,0,84,0,0,84,0,0
8382 data84,0,0,84,0,0,84,0
8384 data0,84,0,0,84,0,0,84
8386 data0,3,252,0,12,204,0,0
8400 :
8402 rem **** girl sprites
8404 fori=0to255:reada:pokei+15616,a:next:return
8406 rem top left, poke p,244
8410 data0,170,0,0,170,0,2,170
8412 data128,2,170,128,0,86,160,0
8414 data86,160,0,69,168,1,85,168
8416 data0,85,104,0,85,168,0,85
8418 data168,0,5,168,0,5,168,0
8420 data63,168,0,255,168,0,255,160
8422 data0,207,160,0,255,160,0,207
8424 data32,0,255,0,0,207,0,0
8425 rem lower left,poke p,245
8426 data013,250,0,013,250,000,000,170
8428 data000,0,170,000,000,170,000,002
8430 data170,128,2,170,128,002,170,128
8432 data010,170,160,010,170,160,0,020
8434 data000,0,020,000,000,020,000,000
8436 data020,0,000,020,000,000,020,000
8438 data000,020,0,000,060,000,000,060
8440 data000,0,252,000,000,252,000,000
8441 rem top right, poke p,246
8442 data000,042,128,0,042,128,000,170
8444 data160,0,170,160,002,165,064,002
8446 data165,064,10,148,064,010,149,080
8448 data010,085,064,010,149,0,010,149
8450 data064,010,148,0,010,148,000,010
8452 data191,0,010,191,192,002,191,192
8454 data002,188,192,2,191,192,002,060
8456 data192,0,063,192,000,060,192,000
8457 rem lower right,poke p,247
8458 data000,175,112,0,175,112,000,170
8460 data000,0,170,000,000,170,000,002
8462 data170,128,2,170,128,002,170,128
8464 data010,170,160,010,170,160,0,020
8466 data000,0,020,000,000,020,000,000
8468 data020,0,000,020,000,000,020,000
8470 data000,020,0,000,060,000,000,060
8472 data000,0,063,000,000,063,000,000
8500 :
8502 fori=15232to15615:reada:pokei,a:next:return
8504 rem lower right/walking p,23